home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Text / WASTE / WASTE 1.1.2 Distribution / Pseudo-UPI for THINK Pascal / StandardFile.p < prev    next >
Encoding:
Text File  |  1995-10-12  |  3.5 KB  |  105 lines  |  [TEXT/PJMM]
  1. unit StandardFile;
  2.  
  3. { Pascal Interface to the Macintosh Libraries }
  4.  
  5. { Copyright © Apple Computer Inc. }
  6. { All Rights Reserved }
  7.  
  8. { Adapted for use with THINK Pascal 4.0.x by Marco Piovanelli }
  9.  
  10. interface
  11.     uses
  12.         Types;
  13.  
  14.     type
  15.  
  16. { for CustomXXXFile, ActivationOrderListPtr parameter is a pointer to an array of item numbers }
  17.         ActivationOrderListPtr = ^INTEGER;
  18.  
  19.         DlgHookProcPtr = ProcPtr;  { FUNCTION DlgHook(item: INTEGER; theDialog: DialogPtr): INTEGER; }
  20.         FileFilterProcPtr = ProcPtr;  { FUNCTION FileFilter(pb: CInfoPBPtr): BOOLEAN; }
  21.         DlgHookYDProcPtr = ProcPtr;  { FUNCTION DlgHookYD(item: INTEGER; theDialog: DialogPtr; yourDataPtr: UNIV Ptr): INTEGER; }
  22.         ModalFilterYDProcPtr = ProcPtr;  { FUNCTION ModalFilterYD(theDialog: DialogPtr; VAR theEvent: EventRecord; VAR itemHit: INTEGER; yourDataPtr: UNIV Ptr): BOOLEAN; }
  23.         FileFilterYDProcPtr = ProcPtr;  { FUNCTION FileFilterYD(pb: CInfoPBPtr; yourDataPtr: UNIV Ptr): BOOLEAN; }
  24.         ActivateYDProcPtr = ProcPtr;  { PROCEDURE ActivateYD(theDialog: DialogPtr; itemNo: INTEGER; activating: BOOLEAN; yourDataPtr: UNIV Ptr); }
  25.         DlgHookUPP = UniversalProcPtr;
  26.         FileFilterUPP = UniversalProcPtr;
  27.         DlgHookYDUPP = UniversalProcPtr;
  28.         ModalFilterYDUPP = UniversalProcPtr;
  29.         FileFilterYDUPP = UniversalProcPtr;
  30.         ActivateYDUPP = UniversalProcPtr;
  31.  
  32.     const
  33.         uppDlgHookProcInfo = $000003A0; { FUNCTION (2 byte param, 4 byte param): 2 byte result; }
  34.         uppFileFilterProcInfo = $000000D0; { FUNCTION (4 byte param): 1 byte result; }
  35.         uppDlgHookYDProcInfo = $00000FA0; { FUNCTION (2 byte param, 4 byte param, 4 byte param): 2 byte result; }
  36.         uppModalFilterYDProcInfo = $00003FD0; { FUNCTION (4 byte param, 4 byte param, 4 byte param, 4 byte param): 1 byte result; }
  37.         uppFileFilterYDProcInfo = $000003D0; { FUNCTION (4 byte param, 4 byte param): 1 byte result; }
  38.         uppActivateYDProcInfo = $000036C0; { PROCEDURE (4 byte param, 2 byte param, 1 byte param, 4 byte param); }
  39.  
  40.     function NewDlgHookProc (userRoutine: DlgHookProcPtr): DlgHookUPP;
  41.     inline
  42.         $2E9F;
  43.  
  44.     function NewFileFilterProc (userRoutine: FileFilterProcPtr): FileFilterUPP;
  45.     inline
  46.         $2E9F;
  47.  
  48.     function NewDlgHookYDProc (userRoutine: DlgHookYDProcPtr): DlgHookYDUPP;
  49.     inline
  50.         $2E9F;
  51.  
  52.     function NewModalFilterYDProc (userRoutine: ModalFilterYDProcPtr): ModalFilterYDUPP;
  53.     inline
  54.         $2E9F;
  55.  
  56.     function NewFileFilterYDProc (userRoutine: FileFilterYDProcPtr): FileFilterYDUPP;
  57.     inline
  58.         $2E9F;
  59.  
  60.     function NewActivateYDProc (userRoutine: ActivateYDProcPtr): ActivateYDUPP;
  61.     inline
  62.         $2E9F;
  63.  
  64.     function CallDlgHookProc (item: INTEGER;
  65.                                     theDialog: DialogPtr;
  66.                                     userRoutine: DlgHookUPP): INTEGER;
  67.     inline
  68.         $205F, $4E90;
  69.  
  70.     function CallFileFilterProc (pb: CInfoPBPtr;
  71.                                     userRoutine: FileFilterUPP): BOOLEAN;
  72.     inline
  73.         $205F, $4E90;
  74.  
  75.     function CallDlgHookYDProc (item: INTEGER;
  76.                                     theDialog: DialogPtr;
  77.                                     yourDataPtr: univ Ptr;
  78.                                     userRoutine: DlgHookYDUPP): INTEGER;
  79.     inline
  80.         $205F, $4E90;
  81.  
  82.     function CallModalFilterYDProc (theDialog: DialogPtr;
  83.                                     var theEvent: EventRecord;
  84.                                     var itemHit: INTEGER;
  85.                                     yourDataPtr: univ Ptr;
  86.                                     userRoutine: ModalFilterYDUPP): BOOLEAN;
  87.     inline
  88.         $205F, $4E90;
  89.  
  90.     function CallFileFilterYDProc (pb: CInfoPBPtr;
  91.                                     yourDataPtr: univ Ptr;
  92.                                     userRoutine: FileFilterYDUPP): BOOLEAN;
  93.     inline
  94.         $205F, $4E90;
  95.  
  96.     procedure CallActivateYDProc (theDialog: DialogPtr;
  97.                                     itemNo: INTEGER;
  98.                                     activating: BOOLEAN;
  99.                                     yourDataPtr: univ Ptr;
  100.                                     userRoutine: ActivateYDUPP);
  101.     inline
  102.         $205F, $4E90;
  103.  
  104. implementation
  105. end.